<!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
<stack>
<name>in</name>
<id>-1</id>
<cardCount>1</cardCount>
<cardID>2858</cardID>
<listID>4159</listID>
<cantModify><false /></cantModify>
<cantDelete><false /></cantDelete>
<cantAbort><false /></cantAbort>
<cardSize>
<width>512</width>
<height>342</height>
</cardSize>
<script>on closeStacklock screenif short name of button id 13 = "Hide File Creators"then send mouseUp to button id 13hide button "Show File Creators"hide card field "Help"hide card field "Help2"hide button "More"hide card field "About"unlock screen with dissolvepass closeStackend closeStackfunction t xget offset("'",x)+1if it = 1 then return xelseput char it to number of chars of x of x into xget offset("'",x)-1return char 1 to it of xend ifend tfunction beforeStr source,targetget offset(target,source)if it = 0then return sourceelse return char 1 to it-1 of Sourceend beforeStron playglobal makeNoise, setItif makeNoise thenif not setIt then put false into makeNoisepass playend ifend playfunction HitTest where, whatif what = "" or what = "btn" thenrepeat with i = the number of cd btns down to 1if where is within rect of cd btn i thenif visible of cd btn i and name of cd btn i Γëá name of targetthen return "cd btn id " & the id of cd btn iend ifend repeatrepeat with i = the number of bg btns down to 1if where is within rect of bg btn i thenif visible of bg btn i and name of bg btn i Γëá name of targetthen return " bg btn id "& the id of bg btn iend ifend repeatend ifif what = "" or what = "fld" thenrepeat with i = the number of cd flds down to 1if where is within rect of cd fld i thenif visible of cd fld i and name of cd fld i Γëá name of targetthen return "cd fld id " & the id of cd fld iend ifend repeatrepeat with i = the number of bg flds down to 1if where is within rect of bg fld i thenif visible of bg fld i and name of bg fld i Γëá name of targetthen return " bg fld id "& the id of bg fld iend ifend repeatend ifreturn ""end HitTestfunction cardNum x-- This returns the card number of a card field named x-- where x is case-sensitive. There isnΓÇÖt any error checking-- as it is assumed that there are always correctly named fields.put number of chars of x into nput false into foundItput "" into bobrepeat with i = 1 to number of card fieldsget short name of cd fld iif number of chars of it = n thenput true into foundItrepeat with j = 1 to nif charToNum(char j of x) Γëá charToNum(char j of it) thenput false into foundItexit repeatend ifend repeatput i into bobif foundIt then exit repeatend ifend repeatreturn bobend cardNum</script>
